home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 27.zip / BS1 part 27 / TapeWControleV1.0.adf / Install < prev    next >
Text File  |  1993-08-25  |  2KB  |  79 lines
  1. ;script to install Ami-Back Tools
  2.  
  3. ;Get directory to install Ami-Back Tools in.
  4. (set destdir 
  5.     (askdir 
  6.         (prompt "In which drawer should the TapeWorm-FS utilities be installed?") 
  7.         (help @askdir-help)
  8.         (default @default-dest)
  9.     )
  10. )
  11.  
  12. ;Get OS version.
  13. (set vernum (getversion))
  14. (set ver (/ vernum 65536))
  15. (set rev (- vernum (* ver 65536)))
  16.  
  17. ;Make sure version is late enough to run.
  18. (if (< ver 37)
  19.     // Problem.
  20.     (
  21.         (message "You need version 2.0 or later of AmigaDOS to use TapeWorm-FS.")
  22.         (exit)
  23.     )
  24. )
  25.  
  26. ;Copy config/control program files to destination.
  27. (copyfiles
  28.     (choices "TapeWorm-FS:TWConfig" "TapeWorm-FS:TWCtrl")
  29.     (dest destdir)
  30.     (infos)
  31.     (confirm)
  32.     (prompt "Copying TapeWorm-FS utilities.")
  33.     (help @copyfiles-help)
  34. )
  35.  
  36. ;Copy filesystem.
  37. (copyfiles
  38.     (source "TapeWorm-FS:TapeWorm-FS")
  39.     (dest "L:")
  40.     (confirm)
  41.     (prompt "Copying TapeWorm-FS filesystem handler.")
  42.     (help @copyfiles-help)
  43. )
  44.  
  45. ;Copy or Append MountList entry.
  46. (if (exists "Devs:DOSDrivers")
  47.     
  48.     ;True
  49.     (copyfiles
  50.         (source "TapeWorm-FS:Tape")
  51.         (dest "Devs:DOSDrivers")
  52.         (infos)
  53.         (confirm)
  54.         (prompt "Copying TapeWorm-FS Moutfile.")
  55.         (help @copyfiles-help)
  56.     )
  57.     
  58.     ;False
  59.     (
  60.         (copyfiles
  61.             (source "TapeWorm-FS:TW.Mountlist")
  62.             (dest "Devs:")
  63.             (confirm)
  64.             (prompt "Copying TapeWorm-FS Mountlist.")
  65.             (help @copyfiles-help)
  66.         )
  67.         (startup "TapeWorm-FS" 
  68.             (command "Mount TAPE: FROM Devs:TW.Mountlist")
  69.             (prompt "Adding mountlist entry for TAPE:")
  70.             (help "TapeWorm-FS needs to be mounted before it can be used.")
  71.         )
  72.     )
  73. )
  74.  
  75. ;Correct @default-dest so that final information is correct.
  76. (set @default-dest destdir)
  77.  
  78. (exit)
  79.